home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ ASP Options General 1.xpl < prev    next >
Text File  |  1999-09-03  |  3KB  |  85 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Information Server\ASP Settings"
  5. "NAME"="General Settings (1)"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow Session (send Cookie "ASPSessionID")"
  9. "TEXT 2"="Allow access to parent directories"
  10. "TEXT 3"="Activate buffering for all pages"
  11. "TEXT 4"="Add error-requests to eventlog"
  12. "TEXT 5"="Send detailed error-information to client"
  13. "DESCRIPTION 1"="Allow Session: By default, ASP creates as session object for every user of an ASP-Application. This requires that a cookie (ASPSessionID) is sent to the user. WARNING! If this option is disabled, it is no longer possible to use the object "Session" or use the "Session_On**" events!"
  14. "DESCRIPTION 2"="Allow access to parent directories: If this option is enabled, an ASP script can access paths above the current position (for example with the "#INCLUDE FILE" command). If it's disabled, this is not possible."
  15. "DESCRIPTION 3"="Activate buffering: By default, ASP buffers only pages, that have requested this ("Response.Buffer=True"). If this option is activated, all pages are buffered."
  16. "DESCRIPTION 4"="Add error-requests: If this option is enabled, requests that caused errors (404 for example) are written to the eventlog."
  17. "DESCRIPTION 5"="Send detailed error-information: If an error occurs in an ASP-script and this option is enabled, detailed information (like filename, linenumber and so on) are send to the client. If disabled, the client is only informed that something went wrong."
  18. "AUTHOR"="Xteq Systems"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  21.  
  22.  
  23.  
  24. sP="HKLM\System\CurrentControlSet\Services\W3SVC\ASP\Parameters\"
  25. vASS="AllowSessionState" 'DW
  26. vBFO="BufferingOn" 'DW
  27. vEPP="EnableParentPaths" 'DW
  28. vLER="LogErrorRequests" 'DW
  29. vSEB="ScriptErrorsSentToBrowser" 'DW
  30.  
  31. Sub Plugin_Initialize 
  32.  If RegPathExists(sP) then
  33.   If RegReadValue(sp&vass)=1 then SetUIElement 1,true
  34.   If RegReadValue(sp&vepp)=1 then SetUIElement 2,true
  35.   If RegReadValue(sp&vbfo)=1 then SetUIElement 3,true
  36.   If RegReadValue(sp&vler)=1 then SetUIElement 4,true
  37.   If RegReadValue(sp&vseb)=1 then SetUIElement 5,true
  38.  else
  39.   Disable
  40.  end if
  41. End Sub
  42.  
  43. Sub Plugin_CheckData(ElementIndex)
  44. End Sub
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  b=GetUIElement(1)
  48.  if b=true then
  49.   Call RegWriteValue(sp&vass,1,2)
  50.  else
  51.   Call RegWriteValue(sp&vass,0,2)
  52.  end if
  53.  
  54.  b=GetUIElement(2)
  55.  if b=true then
  56.   Call RegWriteValue(sp&vepp,1,2)
  57.  else
  58.   Call RegWriteValue(sp&vepp,0,2)
  59.  end if
  60.  
  61.  b=GetUIElement(3)
  62.  if b=true then
  63.   Call RegWriteValue(sp&vbfo,1,2)
  64.  else
  65.   Call RegWriteValue(sp&vbfo,0,2)
  66.  end if
  67.  
  68.  b=GetUIElement(4)
  69.  if b=true then
  70.   Call RegWriteValue(sp&vler,1,2)
  71.  else
  72.   Call RegWriteValue(sp&vler,0,2)
  73.  end if
  74.  
  75.  b=GetUIElement(5)
  76.  if b=true then
  77.   Call RegWriteValue(sp&vseb,1,2)
  78.  else
  79.   Call RegWriteValue(sp&vseb,0,2)
  80.  end if
  81. End Sub
  82.  
  83. Sub Plugin_Terminate 
  84. End Sub
  85.